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Well, before we get started this 
month, please check your mailing label 
for the date of your subscription 
expiration. If you subscribed through 
Millers Graphics and have not yet 
renewed, you must renew by September 15 
to ensure not missing a single issue. 



Q&A 




This is quite an interesting 
question! As I pointed out in the 
article that accompanied the program, 
my intention was to allow quickly 
loading peek and poke values in the MM 
space without having to write a program 
that would have a REF/DEF table. The 
REP/DEF table, by the way, continues to 
grow with new entries, even in a new 
session (MM is battery-backed), until 
cleared. By loading the entire module 
RAM space, there is no possibility of 
pre-existing REF/DEF table entries 
remaining to use up memory or cause 
problems. But, for those who wish to 
save only a portion of the MM space. 



you might want to refer to this month's 
XB MIRROR program for an example of 
saving an Image of variable size. 
Still, AORG code that does not correct 
the FFAM could present a problem in 
identifying where code resides in MM. 
The Mini Memory Save and Load j.^rogram 
uses the only safe universal save and 
load method I've found — save the 
entire MM RAM area. It has also come 
to my attention that I published the 
program as soon as it worked and didn't 
correct a few comments and non- fatal 
errors. The TEXT for the PAB Filename 
used 16 spaces and should have used 
only 15, necessitating the addition of 
an EVEN directive. Under the BEGPAB 
label, hex was used instead of decimal, 
so the instruction should have read 
LI R2,25 instead of >25. The PABBUF EQU 
should have been commented as being the 
location of the PAB buffer, not its 
size. Finally, under the EXIT label, I 
omitted a register designation, which 
should have read MOV @SAVRTN,R11. 



XB MIRROR 



by Richard M. Mitchell 

Here it is! New graphics 
capabilities for Extended BASIC! With 
the XB MIRROR program listed below, you 
can create a mirror image of an 
Extended BASIC (XB) screen and do a lot 
more. Before you get started, please 
note that you will need a GPLLNK and a 
DSRLNK, such as the ones we published 
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last month. 

There are 18 new routines for you 
to use. The routines use four buffers 
in Low Memory to store VDP information. 
In the buffers, you can store copies of 
two Screen Image Tables (SIT's) and 
copies of two Pattern Descriptor Tables 
(PDT's) you have created. The SIT is 
the area of Video Display Processor RAM 
(VDP) that stores the characters that 
are on the screen (XB's GCHAR retrieves 
from the SIT). The PDT is the area of 
VDP in which the Hex codes that define 
the patterns of characters reside (XB's 
CHARPAT retrieves from the PDT). You 
can use these buffers through the 
routines provided by XB MIRROR to 
quickly "page" screens, regardless of 
whether you are using the mirroring 
routines or not. Refer to the XB demo 
and test program that follows the 
Assembly source code for examples of 
usage of the routines. 

There are 2 routines to create a 
mirror image: 

CALL LINK("MIRROR",A$,BS) uses a bit 
reversal routine to mirror individual 
characters in the range AS to B$. AS 
and B$ are single characters. For 
instance, if aS = "A'' and BS = ''2". the 
patterns defined where the capital 
letters originally reside would be 
mirrored. B$ should be greater than or 
equal to AS (refers to ASCII values). 
"MIRROR" alters the PDT, but does not 
affect any of the 4 buffers. 
WARNING: This routine does not do 
limit checlcing -- if AS Is greater 
than BS or either is not in the valid 
XS ASCII range of 30 to 143. you may 
get undesirable occurrences. 

CALL LINKC'FLIP") "flips" the screen. 
In other words, the character at Row 
1. Column 1 is replaced by the 
character at Row 1. Column 32 and the 
character at Row 1. Column 32 is 
replaced by the character at Row 1, 
Column 1, etc. To truly mirror a 
screen, you must use both "FLIP" and 
"MIRROR" (separating the functions 
provides increased versatility). 
"FLIP" alters the SIT. WARNING: This 
routine buffers through the first SIT 
buffer (SITl). wiping out the 
previous contents of SITl (for speed 
and byte- efficiency). 



There are 4 routines to put the 
contents of the VDP tables in the 
buffers In Low Memory: 

CALL LINKCPUTSIl") 

CALL LINK("FUTSI2") 

CALL LINK("PUTPD1") 

CALL LINK("PUTPD2") 

There are 4 routines to get the 
contents of the buffers and place the 
data in the VDP tables: 

CALL LINKCGETSIl") 
CALL LINK("GETSI2"), 
CALL LINK("GETPD1") 
CALL LINK("GETPD2") 

There are 4 routines to save the 
contents of a buffer in Low Memory to a 
dislt file, FS (WARNING: The dislc 
routines may not do adequate error 
checicing. Some disk errors may go 
undetected.): 

CALL LINK("SAVSI1",FS) 
CALL LINK("SAVSI2",FS) 
CALL LINK("SAVPD1".FS) 
CALL LINK("SAVPD2",FS) 

Finally, there are 4 routines to 
load the contents of a disk file to a 
corresponding buffer in Low Memory: 

CALL LINK("LODSn",FS) 
CALL LINK("L0DSI2",FS) 
CALL LINK("L0DPD1",F$) 
CALL LINK("L0DPD2",F$) 

If you are experienced with 
Assembly Language, you should find it 
quite easy to extract individual 
routines to run on their own. Be sure 
to include all EQU's, DEF's, DATA'S, 
BYTE's and BBS's that would be 
required. Once mirrored screens have 
been developed and saved to disk, your 
applications may require only the load 
and get routines (and possibly the put 
routines). As the program 
presented, it uses 3,360 bytes for 
4 main buffers plus 186 bytes for 
DSRLNK and GPLLNK (from last month) 
only 698 bytes for the 18 new routines, 
for a total of only 4,244 bytes 
including all buffers and 
Note that this month's 
Includes a COPY directive 
you have the DSRLNK and 
source files in drive 1. 



is 
the 
the 
plus 



-% 



workspaces! 
source code 
that assumes 
GPLLNK as 2 
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After you have Assembled the 
source fUe, naming the object file 
"MIRROR/0", and have keyed in the XB 
program, copy the object file and the 
XB program onto a blank disk (so that 
you have a backup and your "work disk" 
has free space). 

Next, run the XB program. The 
program will display a number in 
each corner of the screen and an arrow 
near the center of the screen and will 
then mirror the screen and proceed to 
test and demo all of the routines. Do 
not be concerned if you are using a 
television and cannot see the 
at the edge of the screen — 
will test the presence of the 
even if you cannot see them, 
program finishes, you should 
before and after (mirror) character 
patterns of ASCII 50 and 143 and the 
before and after values from GCHAR's of 

the 4 corners of the screen, as 
follows: 



numbers 

a GCHAR 

numbers. 

As the 

see the 



0038440810207C00 

001C221008043B00 

**************************** 

FEFCF8F0E0C080OO 

7F3F1F0F07030100 

**************************** 

49 

50 
**************************** 

50 

49 

**************************** 

51 

52 
**************************** 

52 

51 
**************************** 



The 4 disk files for saving the buffers 
should occupy 4 sectors each for files 
"SITl" and "SIT2" and 5 sectors each 
for "PDTl" and "1234567890" (the PDT2 
file, which is named to test acceptance 
of the maximum filename length). 

After running the program, some of 
you will probably be saying, "Wow!". 
but, unfortunately, some of you will 
find that you didn't key the program in 
properly. So. next month I'll cover 
the methods that I used to de-bug the 



program. In hopes that such a 
discussion might help you with both 
your own programs and ones you key In 
(no, I don't just "whip out" a program 
like XB MIRROR In an hour without 
errors — it took me a lot of time and 
several de-bugging sessions). 

The coding of XB MIRROR yields a 
couple of tips for beginners. First, 
multiplication can be accomplished with 
a bit shift. Under the label "MULPLY", 
SLA RI,3 was used to multiply the 
contents of Register 1 by 8. Each bit 
shifted advances by a power of 2. 
Shifting three bits is equivalent to 
multiplying by 2', 8. Of course, if 
any possible case would cause usable 
bits to be shifted out at the MSb (Most 
Significant bit, "left side"), a 
32-bit MPY would be required. The 
second feature of XB MIRROR that is 
noteworthy for Assembly beginners is 
that the flow of the program does not 
Jump around In a random, "spaghetti- 
code" fashion, but Instead uses 
branches wisely to conserve bytes and 

readable code that was written 
top downward. The Top Down 
is a traditional, widely 
and very useful programming 
technique that can (should?) be applied 
to most languages. The boundaries of 
routines are clearly dlscernable and 
common routines and values are shared 
efficiently. 

For the few of you who haven't 
noticed by now, I really enjoyed 
writing XB MIRROR and I hope you enjoy 
using It. If Interest dictates, I'll 
try to offer a CALL LOAD version in a 
future Issue -- possibly a scaled -down 
version for Mini Memory, so that memory 
expansion and disk would not be 
required. As there is still plenty of 
memory available for the XB version, it 
will also be possible to add many more 
routines. Let me know what you would 
like to see added to the program! Maybe 
we could add a brief routine each 
month. I've already received several 
interesting suggestions, so it might be 
Interesting to see how such a project 
might develop. You might also be 
interested to know that Genial 
Traveler's excellent XXB program 
AORG's into High Memory, so XB MIRROR 
and XXB (in Graphics, not Text mode) 
should currently be compatible! 



make for 
from the 
Method 
accepted 
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******************************** 

* XB MIRROR * 

* BY RICHARD M. MITCHELL * 

* BYTEMASTER COMPUTER SERVICES * 

* COPYRIGHT 1986 * 

******************************** 



r 



PDT 

STRREF 

FAC 

STATUS 

WIPBEG 

WIPEND 

LENl 

CHRl 
LEN2 
CHR2 
OFFSET 



DEF 

DEF 

DEF 

DEF 

DEF 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

EVEN 



MIRROR, FLIP 

PUTSIl , PUTSI2 , GETSIl , GETSI2 
PUTPDl , PUTPD2 , GETPDl , GETPD2 
SAVSIl , SAVSI2 , SAVPDl , SAVPD2 
LODSIl , L0DSI2 , LODPDl , L0DPD2 



>03F0 

>2014 

>834A 

>837C 

>8300 

>8340 

>01 

>00 

>01 

>00 

>1E 



WIPBUF 


BSS 


>42 


WBUFEN 


EQU 


$-2 


COUNT 


BSS 


2 


MYWS 


BSS 


>20 


MIRROR 


LWPI 


MYWS 




CLR 


R0 




LI 


Rl,l 




LI 


R2,LEN1 




BLWP 


•STRREF 




IMC 


Rl 




LI 


R2 , T.EN2 




BLWP 


©STRREF 




CLR 


Rl 




MOVB 


9CHR1,R0 




MOVE 


«CHR2 . Rl 




BL 


•MULPLY 




AI 


Rl,8 




MOV 


Rl , tfCOUNT 




CLR 


R0 




MOVB 


•OFFSET, R0 




CLR 


Rl 




MOVB 


•CHRl , Rl 




BL 


•MULPLY 




LI 


R0 , PDT 




A 


R1,R0 




MOV 


R0 , BFAC 



MOV »COUNT , •FAC+2 





CLR 


R0 




MOVB 


R0 , ©STATUS 




LI 


R0, WIPBEG 




LI 


Rl, WIPBUF 


SAVWIP 


MOV 


*R0+,*R1+ 




CI 


R0, WIPEND 




JNE 


SAVWIP 



VDP ADDRESS OF BEGINNING OF PATTERN DESCRIPTOR TABLE 

STRING REFERENCE INTERFACE WITH XB 

FLOATING POINT ACCUMULATOR ADDRESS USED BY GPL ROUTINE 

GPL STATUS BYTE (SEE BELOW) 

>8300 THRU >8340 ARE WIPED OUT BY GPL BIT REVERSAL 

LAST WORD OF WIPE-OUT AREA 

LENGTH (ONE-BYTE CHARACTER FROM BASIC) (ALWAYS 1) 

ASCII VALUE OF FIRST CHARACTER FROM BASIC 

LENGTH OF SECOND CHARACTER FROM BASIC (ALWAYS 1) 

ASCII VALUE OF SECOND CHARACTER FROM BASIC 

REFERENCE TO BASIC'S FIRST 'REAL* CHARACTER, 30 

GET BACK ON EVEN WORD BOUNDARY 

BUFFER TO STORE >8300 TO >8340 WIPED OUT BY GPL 

LAST WORD OF WIPE-OUT BUFFER 

BUFFER FOR NUMBER OF BYTES TO REVERSE 

16 2-BYTE REGISTERS 

SET OUR WORKSPACE POINTER 

I GET BEGINNING CHARACTER TO REVERSE FROM BASIC 
I 

I 

I GET ENDING CHARACTER TO REVERSE FROM BASIC 

SET R1=0 

GET READY FOR CALCULATIONS 

GET READY FOR CALCULATIONS 

I CALCULATE NUMBER OF BYTES TO REVERSE 

SET R0=0 

SET MSB OF R0=>1E 

SET R1=0 

SET MSB OF R1=FIR3T CHARACTER TO BE REVERSED 

CALCULATE BYTES INTO PDT 

SET R0-BEGINNING OF PDT 

ADD BYTES INTO PDT TO PDT TO SET FIRST BYTE TO REVERSE 
SET VDP ADDRESS OF FIRST CHARACTER TO REVERSE 

GPLLNK BIT REVERSAL USES FAC. 

SET NO. OF BYTES TO REVERSE 

GPLLNK BIT REVERSAL USES FAC+2. 
GET READY TO CLEAR THE GPL STATUS BYTE 
CLEAR THE GPL STATUS BYTE (MUST DO BEFORE GPLLNK) 

I MOVE >8300 THRU >8340 TO BUFFER 

J MANY THANKS TO CRAIG MILLER FOR REMINDING TO DO THI 

I IN THE MAY 1984 SMART PROGRAMMER. 



^^ 
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^ 





BLWP 


eCPLLNK 




DATA 


>003B 




LI 


R0,WIPBUF 


k 


LI 


R1,WIPBEG 


.KSWIP 


MOV 


*R0+,*R1+ 




CI 


R0,WBUFEN 




JNE 


RESWIP 


RKTURN 


LWPI 


GPLWS 




B 


®>006A 



BRANCH TO GPLLNK AT POINTER INDICATED BY FOLLOWING DATA 
POINTER TO GPLLMK BIT REVERSAL ROUTINE 

t RESTORE WHAT GPL BIT REVERSAL WIPED OUT IN SCRATCH 

I PAD RAM, >8300 THRU >8340. 

I 

LOAD WORKSPACE POINTER AT THE GPL WORKSPACE 
BRANCH TO CLEAR STATUS BYTE AND RETURN TO BASIC. 

THANKS FOR THIS TIP IN GENIAL TRAVELLER, CREDITED TO 

PAUL CHARLTON 



T 




I" \ 



MULPLY 


SB 


R0,R1 




SWPB 


Rl 




SLA 


Rl,3 




RT 




VSBR 


EQU 


>2028 


VMBW 


EQU 


>2024 


FLIP 


LWPI 


MYWS 




CLR 


R2 




CLR 


R3 


ROW 


MOV 


R2,R0 




AI 


R0,>1F 


RC 


BLWP 


9 VSBR 




MOVB 


R1,®SIT1{R3) 




INC 


R3 




C 


R0,R2 




JEQ 


RCl 




DEC 


R0 




JMP 


RC 


RCl 


CI 


R2,>2E0 




JEQ 


EXIT 




AI 


R2,>20 




JMP 


ROW 


EXIT 


CLR 


R0 




LI 


R1,SIT1 




LI 


R2,>300 




BLWP 


@VMBW 




B 


«RETURN 


SITl 


BSS 


>300 


SIT2 


BSS 


>300 


VMBR 


EQU 


>202C 


PUTS 11 


LWPI 


MYWS 




LI 


Rl.SITl 




JMP 


PUTS I 


PUTS I 2 


LWPI 


MYWS 




LI 


R1,SIT2 


PUTS I 


CLR 


R0 




LI 


R2,>300 




BLWP 


®VMBR 




B 


©RETURN 


GETS 11 


LWPI 


MYWS 




LI 


R1,SIT1 




JMP 


GETSI 


GETSI2 


LWPI 


MYWS 




LI 


R1,SIT2 



SUBTRACT BYTES AND LEAVE DIFFERENCE IN MSB OF Rl 
SWAP BYTES TO SWITCH FROM BYTES TO WORDS 
MULTIPLY BY 8 
RETURN TO CALLER 

VIDEO SINGLE BYTE READ BLWP ADDRESS 
VIDEO MULTIPLE BYTE WRITE BLWP ADDRESS 

SET WORKSPACE 

SET R2=FIRST COLUMN OF CURRENT ROW 

SET R3=0FFSET TO SITl 

SET R0=FIRST BYTE OF CURRENT ROW 

SET R0«LAST COLUMN OF CURRENT ROW 

READ BYTE FROM VDP 

PUT BYTE READ INTO APPROPRIATE BYTE IN SITl 

POINT TO NEXT BYTE IN SITl 

FINISHED ROW? 

YES, SET UP FOR NEXT ROW 

POINT TO NEXT COLUMN ON SCREEN 

DO NEXT COLUMN, SAME ROW 

FINISHED SCREEN? 

YES, EXIT 

SET R2=BEGINNING OF NEXT ROW 

DO NEXT ROW 

! PUT SITl IN SIT AND 

I BRANCH TO RETURN TO BASIC ROUTINE 

I 



FIRST BUFFER FOR DATA FROM SIT 
SECOND BUFFER FOR DATA FROM SIT 
VIDEO MULTIPLE BYTE READ BLWP ADDRESS 

SET WORKSPACE 

GET READY TO READ INTO BUFFER SITl 

USE COMMON ROUTINE 

SET WORKSPACE 

GET READY TO READ INTO BUFFER SIT2 

GET READY TO READ FROM FIRST SCREEN POSITION, 

GET READY TO READ ENTIRE SCREEN 

READ SCREEN AND STORE IN BUFFER 

BRANCH TO RETURN TO BASIC ROUTINE 

SET WORKSPACE 

GET READY TO WRITE FROM BUFFER SITl 

USE COMMON ROUTINE 

SET WORKSPACE 

GET READY TO WRITE FROM BUFFER SIT2 
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GETSI 


CLR 


R0 




LI 


R2,>3O0 




BLWP 


•VMBW 




B 


©RETURN 


PDTl 


ESS 


>390 


PDT2 


BSS 


>390 


PUTPDl 


LWPI 


MYWS 




LI 


Rl , PDTl 




JMP 


PUTPD 


PUTPD2 


LWPI 


MYWS 




LI 


Rl , PDT2 


PUTPD 


LI 


R0 , PDT 




LI 


R2,>390 




BLWP 


9VMBR 




B 


©RETURN 


GETPDl 


LWPI 


MYWS 




LI 


Rl , PDTl 




JMP 


GETPD 


GETPD2 


LWPI 


MYWS 




LI 


Rl , PDT2 


GETPD 


LI 


R0 , PDT 




LI 


R2,>390 




BLWP 


9VMBW 




B 


©RETURN 


PABBUF 


EQU 


>1000 


PAB 


EQU 


>0F80 


PNTR 


EQU 


>8356 


SV 


BYTE 


>06 


LD 


BYTE 


>05 


PDATA 


DATA 


>060C, PABBUF 


FNAME 


TEXT 


1 


CONST 


BYTE 


>0F 


ADDRES 


DATA 





SAVSIl 


LWPI 


MYWS 




LI 


R0,SIT1 




JMP 


SAVSI 


SAVSI2 


LWPI 


MYWS 




LI 


R0,SIT2 


SAVSI 


LI 


Rl,>300 




JMP 


SAV 


SAVPDl 


LWPI 


MYWS 




LI 


R0 , PDTl 




JMP 


SAVPD 


SAVPD2 


LWPI 


MYWS 




LI 


R0 , PDT2 


SAVPD 


LI 


Rl,>390 


SAV 


BL 


•STRETC 




MOVB 


«S V , ©PDATA 




BL 


©SETPAB 




BL 


©SET ADD 




BLWP 


©VMBW 




BLWP 


©DSRLNK 




DATA 


8 




B 


•EXITD 


LODSIl 


LWPI 


MYWS 




LI 


R0,SIT1 




JMP 


LODSI 



GET READY TO WRITE TO FIRST SCREEN POSITION, 

GET READY TO WRITE ENTIRE SCREEN 

WRITE BUFFER TO SCREEN 

BRANCH TO RETURN TO BASIC ROUTINE 

FIRST BUFFER FOR DATA FROM PDT 

SECOND BUFFER FOR DATA FROM PDT 

SET WORKSPACE 

GET READY TO READ INTO BUFFER PDTl 

USE COMMON ROUTINE 

SET WORKSPACE 

GET READY TO READ INTO BUFFER PDT2 

GET READY TO READ FROM PDT 

GET READY TO READ ENTIRE PDT 

READ PDT INTO BUFFER 

BRANCH TO RETURN TO BASIC ROUTINE 

SET WORKSPACE 

GET READY TO WRITE FROM BUFFER PDTl 

USE COMMON ROUTINE 

SET WORKSPACE 

GET READY TO WRITE FROM BUFFER PDT2 

GET READY TO WRITE TO PDT 

GET READY TO WRITE ENTIRE BUFFER TO PDT 

WRITE BUFFER INTO PDT 

BRANCH TO RETURN TO BASIC ROUTINE 

DATA BUFFER ADDRESS IN VDP 
PERIPHERAL ACCESS BUFFER ADDRESS IN VDP 
POINTER TO FIRST BYTE AFTER PAB 
FOR FIRST BYTE OF PDATA IF SAVE 
FOR FIRST BYTE OF PDATA IF LOAD 
, >0000,>0000, >000F PAB INFO (SEE P. 294 OF E/A MANUAL) 

PAB INFO (FILENAME) 
CONSTANT TO RESTORE MAX. FILENAME LENGTH 
POINTER TO ADDRESS OF SITl OR SIT2 OR PDTl OR PDT2 
SET WORKSPACE 

GET READY TO SAVE FROM SITl 
USE COMMON ROUTINE 
SET WORKSPACE 

GET READY TO SAVE FROM SIT2 
GET READY TO SAVE ENTIRE BUFFER 
USE COMMON ROUTINE 
SET WORKSPACE 

GET READY TO SAVE FROM PDTl 
USE COMMON ROUTINE 
SET WORKSPACE 

GET READY TO SAVE FROM PDT2 
GET READY TO SAVE ENTIRE BUFFER 
GET FILENAME FROM BASIC, ETC. 
PUT SAVE DESIGNATOR IN PDATA 

ESTABLISH PAB IN VDP 

ESTABLISH MEMORY AREA TO SAVE FROM 

WRITE THE MEMORY AREA IN VDP 

USE DEVICE SERVICE ROUTINE FOR DISK ACCESS 

DATA FOR DSRLNK 

BRANCH TO EXIT DISK ACCESS ROUTINES 

SET WORKSPACE 

GET READY TO LOAD TO SITl 

USE COMMON ROUTINE 



1^ 



f 
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L0DSI2 



LODSI 



LODPDl 



L0DPD2 

LODPD 
LOD 



EXITD 



LWPI 

LI 

LI 

JMP 

LWPI 

LI 

JMP 

LWPI 

LI 

LI 

BL 

MOVE 

BL 

BLWP 

DATA 

BL 

BLWP 

MOVE 

E 



MYWS 
R0,SIT2 

Rl, >300 

LOD 

MYWS 

R0 , PDTl 

LODPD 

MYWS 

R0,PDT2 

Rl,>390 

®STRETC 

@LD , ©PDATA 

eSETPAE 

®DSRLNK 

8 

©SET ADD 

»VMBR 

©CONST, @PDATA+9 

©RETURN 



SET WORKSPACE 

GET READY TO LOAD TO SIT2 

GET READY TO LOAD ENTIRE BUFFER 

USE COMMON ROUTINE 

SET WORKSPACE 

GET READY TO LOAD TO PDTl 

USE COMMON ROUTINE 

SET WORKSPACE 

GET READY TO LOAD TO PDT2 

GET READY TO LOAD ENTIRE BUFFER 

FILENAME FROM BASIC, ETC. 

LOAD DESIGNATOR IN PDATA 
ESTABLISH PAB IN VDP 

USE DEVICE SERVICE ROUTINE FOR DISK ACCESS 

DATA FOR DSRLNK 

ESTABLISH MEMORY AREA TO LOAD INTO 

READ FROM VDP TO MEMORY 

RESTORE MAX. LENGTH OF STRING FROM BASIC 
BRANCH TO RETURN TO BASIC ROUTINE 



GET 
PUT 



STRETC 



SETPAB 



SETADD 



MOV 

MOV 

CLR 

LI 

LI 

BLWP 

RT 

LI 

LI 

LI 

BLWP 

LI 

MOV 

RT 

LI 

MOV 

MOV 

RT 



R0,®ADDRES 

Rl,ePDATA+6 

R0 

Rl,l 

R2,PDATA+9 

©STRREF 

R0 , PAB 

Rl, PDATA 

R2,25 

@VMBW 

R6,PAB+9 

R6,@PNTR 

R0 , PABEUF 
@ADDRES,R1 
@PDATA+6 , R2 



STORE ADDRESS OF DESIGNATED BUFFER FOR LATER USE 

PUT # BYTES TO LATER ACCESS INTO PROPER WORD OF PDATA 

I GET FILENAME FROM BASIC 
I 

RETURN TO CALLER 



SET-UP PAB IN VDP AND POINTER IN SCRATCH PAD 



ESTABLISH AREA OF MEMORY TO ACCESS 



COPY 'DSKl.GPLLNK' 
COPY 'DSKl. DSRLNK' 
END 



100 CALL INIT :: CALL LOAD { " 

DSKl. MIRROR/0") 

110 CALL CHAR{140,RPT${"0'M 

2)&"FFFF'M41,"FF",142,"80C0 

E0F0F8FCFEFF" , 143 , "FEFCF8F0E 

0C08") 

120 CALL CLEAR : : CALL HCHAR 
(12,10,140,2):: CALL HCHAR {1 
3,10,141,2):: CALL HCHAR{12, 
12,142):: CALL HCHAR (13 , 12 , 1 
43) 

130 CALL HCHAR(1,1,49) : : CAL 
L HCHAR(1,32,50) : : CALL HCHA 
R {24, 1,51):: CALL HCHAR (24, 3 
2,52) 

140 CALL LINK("PUTSI2") 



IV 



> 150 CALL LINK("PUTPD2") : : GO 
SUB 410 

> 160 A$=CHR${143) : : CALL LINK 
("MIRROR 

> 170 CALL 

> 180 CALL 
SUB 410 

> 190 CALL 
.SITl") : 



,A$) 
LINK ("FLIP") 
LINK("PUTPD1") 
: CALL CLEAR 
LINK("SAVSI1", 
CALL CLEAR : : 
: : A$="FINISHED" 
: C$=="SIT1" 



: : GO 

"DSKl 
CALL 



CHARSET : : 

BS="SAVING" 

GOSUB 420 
200 CALL LINK("SAVSI2" 
.SIT2") : : C$="SIT2" : : 

420 
210 CALL LINK("SAVPD1" 



"DSKl 
GOSUB 

"DSKl 
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) : : C$="PDT1 



GOSUB 



.PDTl" 
420 

220 CALL LINK{"SAVPD2","DSK1 
.1234567890"):: C$="12345678 
90" : : GOSUB 420 

230 CALL LINK("PUTSI1") : : CA 
LL LINK("PUTSI2") :: CALL LIN 
K("PUTPD1") : : CALL LINK ("PUT 
PD2") 

LINK("L0DSI1" 

B$=" LOADING" 

: GOSUB 420 

LINK{"L0DSI2" 

C$*="SIT2" :: 



240 CALL 
.SITl") : 
="SIT1" 
250 CALL 
.SIT2") : 

420 
260 CALL 
. PDTl " ) : 

420 
270 CALL 



"DSKl 
: : C$ 



"DSKl 
GOSUB 



LINK{"L0DPD1 
C$="PDT1" : 



tt 



"DSKl 
GOSUB 

"DSKl 



LINK("L0DPD2" 
.1234567890"):: C$="12345678 
90" :: GOSUB 420 :: GOSUB 41 


> 280 CALL LINK("GETSI2") 

> 290 CALL LINK("GETPD2") 

> 300 CALL GCHAR(1,1,A) :: CALL 

GCHAR{1,32,B) : : CALL GCHAR ( 

24,1,C):: CALL GCHAR (24 , 32 , D 
) : : GOSUB 410 

> 310 CALL CHARPAT(50,AS) : : CA 



> 
> 

> 



> 
> 



LL CHARPAT(143,BS) 
320 CALL LINK{"GETSI1") 

LINK("GETPD1") 
GCHAR (1,1,E) : : CALL 
32, F) : : CALL GCHAR { 
CALL GCHAR (24, 32, H 



330 CALL 

340 CALL 

GCHAR ( 1 

24,1,G) : 



) 

350 CALL CHARPAT(50,CS) : : CA 

LL CHARPAT(143,D$) : : E$=RPT$ 

("*",28) :: GOSUB 410 

360 CALL CLEAR :: CALL LINK{ 

"GETPD2"):: CALL CHARPAT{66, 

Y$):: CALL CHARPAT {67 , Z$) : : 

CALL CHAR(98,yS) : : CALL CHAR 

(99, Z$) 

370 DISPLAY AT(12,1) :"ABCD": 
"only the letters b and c":" 
should mirror" 

380 FOR 1=1 TO 100 : : CALL L 
INK ( "MIRROR", "B","C") : : NEXT 

I : : GOSUB 410 
390 CALL CLEAR :: PRINT A$:C 

$:E$:B$:DS:E$:A:E:ES:B:F:E$: 
C:G:E$:D:H:E$ 
400 END 

410 FOR 1=1 TO 500 : : NEXT I 
: : RETURN 

420 DISPLAY AT (12 , 1 ) : AS&*' "& 
B$&" "&C$ :: RETURN 



^• 



Using Multiplan'K's ISERROR 



^ 



\\ 



by Richard M. Mitchell 

While Multiplan'"* has often been criticized for being pomewhat slow 
in execution speed. It is a very Impressive environment for the speed and ease 
of program development. 

I prefer to think of Multiplan^** as a combination of a BASIC 
language, a text editor and a database. While It Is generally referred to as a 
spreadsheet program, somehow that term loses the essence of Multiplan^M' s 
capabilities and calls to mind a booklceeper laboring over a huge report to 
arrive at a bottom line of dollars and cents. Though Multiplan^M can 
certainly be used handily for that purpose, it is by no means limited to that 
end. 

Though Multiplan^" does offer a simplistic yet powerful approach to 
modeling solutions, there are some techniques that must be learned to make 
optimal use of Multiplan^M For instance, Multiplan^" follows 

arithmetic rules and will not accept zero as a divisor, yielding a "#DIV/0!" 
error. Are we merely stuck when we have a set of data that would use zero as a 
divisor, even though we intend the answer to be expressed as zero In such a 
situation? No! Multiplan^** has an ISERROR function to trap out errors 
denoted as #NA. #VALUE!, #REF!, #DIV/0!, #NUM!, #NAME?, AND #NULL!. 



To illustrate the use of ISERROR, we'll use the calculation of a baseball 
batting average. The batting average is calculated by dividing hits by times 



T 
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at bat, usually expressed to 3 decimal places (understanding baseball is not 
really necessary). If a player has not yet batted, his average Is usually said 
to be ".000", even though by arithmetic definition his average is undefined (it 
would sound rather silly if a television announcer stated that a player's 
average was "undefined", not to mention the ambiguity of such a statement!). 
Here is a Multiplan^H spreadsheet that calculates the batting average 
without use of ISERROR; 



1 "PLAYER" 

2 "SMITH" 

3 "JONES" 



"HITS" 

2 





3 


4 


"AT BATS" 


" A VG . " 


3 


RC[-23/RCC-l] 





RC[-2]/RC[-l] 



And, here's a report from the above sheet 



PLAYER 


HITS AT BATS AVG. 


SMITH 


2 3 0.667 


JONES 


#DIV/0! 



By adding an ISERROR as the first clause of an IF statement, we can trap 
out the error, as follows: 



1 "PLAYER" 

2 "SMITH" 



3 "JONES" 



"HITS" 
2 







"AT BATS 
3 



II 







" AVG . " 

IF (ISERROR (RCC- 

2]/RC[-l]) ,0,RC 

[-2]/RC[-l]) 

IF (ISERROR (RCE- 

2]/RC[-l}),0,RC 

[-2J/RCE-1]) 



And, here's the report from the sheet that uses the ISERROR (much better): 



PLAYER 
SMITH 
JONES 



HITS AT BATS 
2 3 





AVG. 

0.667 
0.000 



The IF function is equivalent to BASIC'S IF-THEN-ELSE. To translate from 
"MPese" to English, If the batting average calculation produces an error, then 
the batting average is 0, else the batting average equals the calculated value. 
By using relative cell references, such as RC[-2l, we can simply Copy Down the 
formula into as many cells as we require -- in this case, for as many players 
as there are on a team or in a league, for example. 

Perhaps at this point you may not yet recognize the power of 
Multiplan^M. one advantage lies In the fact that data can be Sorted by 
any column, such as "AVG." or "HITS" or "AT BATS" or even In alphabetical order 
by the player's names without writing a sort routine. Sort is a 
MuitlplanTM command! Also, there is little effort in laying out the screen 
or a printout ~- simply move the cursor to wherever you wish to input! 9 9/4 A 
users often remark that they'd like to have a word processor with a calculator 
function -- well, with MultiplanT» you have a text editor that will 
perform some of the functions of a word processor and it can be used as a 
calculator and much more! If you want to send fancy printer controls, you can 
print your spreadsheet to disk as a report and switch to Tl-Writer to add your 
finishing touches, including such functions as Incorporating the spreadsheet 
data into a form letter! 

When using Multiplan^M, it is highly recommended that Recalc be left 
off most of the time by selecting Options Recalc (No) or else the entire sheet 
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will be updated after every cell change. Don't worry about recalculating 
before saving the sheet to disk, as Muitiplan^" will do that automatically! 

Until next time, have fun with your spreadsheets! 



ir 



256 BYTES OF SCRATCH PAD RAM - XB USE 



>8300 



>8300 
>8302 
>8304 
>8306 
>8308 
>830A 
>830C 
>830E 
>8310 
>8312 
>8314 
>8316 



>8318 



>8318 
>831A 
>831C 
>831E 
>8320 
>8322 
>8324 
>8326 
>8328 
>832A 
>832C 
>832E 
>8330 
>8332 
>8334 
>8336 
>8338 
>833A 
>833C 
>833E 
>8340 
>8342 
>8344 
>8345 



>8346 
>8348 



XB TEMPORARY STORAGE AREA 

This area of Scratch Ram is used by X-Basic and Basic as 

holding area for the different routines, 
variable 



temporary 
temporary 
temporary 
temporary 
temporary 
temporary 
temporary 
temporary 
temporary 
temporary 
temporary 
temporary 
temporary 



variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 
variable 



Record Length on file access 
Address of Sprite At t tribute List 



increment value for Auto Num 

used in CALL LINK parameter passing 

used by CHAR type statements 

copy of VDP reg 1 for some commands 

DSR Link flag for some commands 



XB PERMANENT STORAGE AREA 

This area of Scratch Ram is used for specific items by X-Basic 

Used by LINK, LOAD & rtn control to Basic also String space bgn 

Points to 1st free add in VDP RAM also String space end 

Points to allocated str space ~ PAB Error - Temp string pointer 

Start of current statement 

Current Screen Address 

Return error code from Assembly Language Code 

VDP value stack base pointer 

Return address from Assembly Language Code 

NUD Table for Assembly Language Code. 

Ending screen display pointer 

Program text or token code pointer 

Pointer to current line number in line number table 

Start of Line number table pointer 

End of Line number table pointer 

Data pointer for read 

Line number table pointer for read 

Address of intrinsic Poly constants 

Subprogram symbol table pointer 

PAB address in VDP RAM (first link) 

Symbol table pointer 

VDP Ram free space pointer 

Current char/ token 

Extended Basic Program RUN = 255 

Basic System Flags 

1 = Auto-Num Bit 
1 - On Break Next 



PAB list 



STOP = (w/o 'READY') 



Extended 
Bit 

1 1 
2 
3 1 

Crunch buffer 



= Trace 
destruction level 



4 


1 


= Edit Mode 


5 
6 
7 


1 
1 


= On Warning Stop 
= On Warning Next 



Last subprogram block on stack 



f^ 



f 
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256 BYTES OF SCRATCH PAD RAM Continued 



>834A 
>834A 
>834B 
>834C 
>834E 
>834F 
>8350 
>8352 
>8353 
>8354 
>8356 
>8358 
>835A 
>835C 



>836C 
>836D 



FLOATING POINT and DSR usage, 36 byte 
FAC (Floating point accumulator) 
for floating point routines 
this area holds a number in 
radix 100 notation. 



FLOATING POINT ERROR CODE 

SUBRTN POINTER / DSR ' s pnts to 1st 



s 

PAB 
PAB 
PAB 
PAB 
PAB 
PAB 
PAB 
PAB 
PAB 

char 



ARG 



(Floating point argument) 
and DSR usage 



FPERAD (float pnt err add in Grom ?) 
Set to >08 for DSR call 



1/0 OPCODE 
FLAG /STATUS 
DATA BUFFER ADDRESS 
LOGICAL REC LENGTH 
CHARACTER COUNT 
RECORD NUMBER 
SCREEN OFFSET 
OPTION LENGTH 
DEVICE LENGTH 
after PAB in VDP 

DSR 

DSR 

DSR 

DSR 

DSR 

DSR 

DSR 



>836E 
>8370 
>8372 

>8373 

>8374 

>8375 
>8376 
>8377 

>8378 
>8379 
>837A 
>837B 
>837C 
>837D 
>837E 
>837F 



INTERPRETER and FLOATING POINT GPL VALUE STACK POINTER 
HIGHEST AVAILABLE ADDRESS IN VDP RAM 
LSByte OF DATA STACK POINTER = A0 = O83A0) 
LSByte OF SUBROUTINE STACK POINTER = 80 = O8380) 
KEYBOARD NUMBER TO BE SCANNED Default =0 



also SGN 
also EXP 



for 

for 



float/point 

float/point 



ASCII CODE DETECTED by SCAN routine 
JOYSTICK Y-STATUS by SCAN routine 
JOYSTICK X-STATUS by SCAN routine 
RANDOM NUMBER GENERATOR RND ' s 

VDP INTERRUPT TIMER 
HIGHEST SPRITE # IN AUTO-MOTION 

COPY OF VDP STATUS REGISTER 

GPL STATUS BYTE (Set to for a DSR CALL) (>20 =Key Press) 

CHARACTER BUFFER BYTE to VDP RAM screen table 

POINTS TO THE CURRENT ROW on the screen 

POINTS TO THE CURRENT COLUMN on the screen 



>0 ->63 
>0 ->FF 
>0 ->20 



(0-99) 

(0-255) 

(0-32) 



>8380 
>8380 
>8382 
>8384 
>8386 
>8388 
>8389 
>838A 

>839E 
>83A0 



SUBROUTINE STACK (Used by GPL Routines) 

For Basics interpreter 

For Basics interpreter 

Highest Address in Expansion Memory 

Highest Free Address in Mem-Expansion 

For the Basic interpreter Sub stack base 

For the Basic interpreter Exp-Mem Flag 

RETURN ADDRESS STACK FOR GROM SUBROUTINES 

(current Grom Address pushed to top of stack during Key Scan) 



THE DEFAULT 

Reserved 
Reserved 
Reserved 
Reserved 
Reserved 
Reserved 



THE DEFAULT DATA STACK (Used by GPL Routines) 

this area holds various information according to the GROM 

routine being executed. 



>83BF 
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256 BYTES OF SCRATCH PAD RAM Continued 



^ 



>83C0 
>83C0 
>83C2 



>83C4 
>83C6 
>83C8 
>83CA 
>83CC 
>83CE 
>83D0 
>83D2 
>83D4 
>83D6 
>83D8 
>83DA 
>83DC 
>83DB 



>83E0 
>83E0 
>83E2 
>83E4 
>83E6 
>83E8 
>83EA 
>83EC 
>83EE 
>83F0 
>83F2 
>S3F4 
>83F6 
>83F8 
>83FA 
>83FC 



>83FD 



>83FE 



INTERRUPT WORKSPACE REGISTERS 



R0 
Rl 



R2 

R3 

R4 

R5 

R6 

R7 

R8 

R9 

R10 

Rll 

R12 

R13 

R14 

R15 



RANDOM NUMBER SEED 

Bit 1= disable 

1 1 = disable 

2 1= disable 

3 1= disable 
Bits 4-15 not used 

ISR HOOK - Start address of 
Reserved for Keyboard state 
Reserved for Keyboard state 



2 Bytes >0-FF >0-FF 
ALL of the following 
Auto Sprite Motion 
Auto Sound Processing 
The QUIT Key 



User Interrupt Routine 
and debounce info 
and debounce info 
and debounce info 



Reserved for Keyboard state 

Pointer to Sound Table - also see >83FD 

Number of Sound Bytes for Auto Sound Processing (0100) 

Varies O0000 for Cassette DSR Link) 

Varies 

CONTENTS OF VDP REGISTER 1 (used for 

SCREEN TIME OUT COUNTER (blanks when 

ADDRESS SAVED BY THE SCAN ROUTINE (Old Rll) 

WS for context switch (RTWP) 
PC for context switch ( RTWP ) 
ST for context switch (RTWP) 



key scan) 
incremented to 0000) 



RETURN 

Return 
Return 
Return 



-^ 



GPL WORKSPACE REGISTERS (ALL Registers used by GPL interpreter) 

NOTE: R0 - R7 , Rll and R12 

are modified by Key Scan 



R0 
Rl 
R2 
R3 
R4 
R5 
R6 
R7 
R8 
R9 
R10 
Rll 
R12 
R13 
R14 
Bits 



Varies 
Varies 
Varies 
Varies 
Varies 
Varies 
Varies 
Varies 



Used 
Used 
Used 



by Interrupt Routine 

by Interrupt Routine 

by Interrupt Routine 
Cleared on Return from Interrupt Routine 
GPL Interpreter use 
GPL Interpreter use 

RETURN ADDRESS for BL instruction and User Interrupt 
Varies - CRU Base Address for Key Scan and DSRs 
GROM/GRAM READ DATA port (9800) 
STATUS FLAGS 
0-7 Control the cursor blink speed & 



Auto sound processing, 
increments the counter 



Bit 




1 
2 
3 



The value in this byte 
at >8379 

1 = 16K Vdp Ram 



1 = Cass Interrupt Timer 
1 = Cass Verify 



4 
5 
6 

7 



1 = Multi-Color mode 
Sound table location 
1 = VDP = Grom/Gram 



R15 VDP WRITE ADDRESS port (8C02) 



1 

+ 



^ 
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Oops! 



^: 



r 



In the November 1986 issue of 
Super 99 Monthly, the Tl-Wrlter Dump 
program requires a modification. Add 
to the beginning of label L10 the 
following code: 



L10 



MOVE aDEC3,R4 
CI R4,>3100 
JEQ RET 



Then, at the end 
the RT, as follows; 



of L10, add a label at 



RET 



RT 



For those with the Best of Super 
99 Monthly disk, if your filename for 
the source code is "TIWDUMP-S", then 
you should make these modifications. 
If your filename is "TIWDUMP~S2", the 
changes already appear on both your 
source and object files. An error that 
was not in the publication exists in the 
source code on some of the disks. At 
line 264, under the label C0NT2, a "?" 
appears instead of a ">". The 
corrected line should be: 

LI RO1F00 



In the March 1984 issue of The 
Smart Programmer, in the Low Memory 
Expansion After CALL INIT map, the 
value at >2002, the FFAM, should be 
>24F4 instead of >24FA. 



News 



f^ 



The State of Washington TI-99/4A 
Home Computer User Groups will sponsor 
The 1986 State of Washington TI-99/4A 
Convention September 27, at the Sea-Tac 
Holiday Inn, Seattle, Washington, with 
associated events scheduled Friday 
through Sunday. For more information, 
contact Barbara Wiederhold, 6 1/2 
Boston St. #4, Seattle, Washington 
98109. Ms. Wiederhold can be reached 
at Queen Anne Computer Shoppe. phone 
(206) 283-0953. The phone line is 
operated as a BBS from 8pm to 8am PDT. 



Some of you might be interested to 
know that I recently received some 
photographs of Reiner Martin's 
80-column video card, as well as photos 
of the monitor displays produced by the 
card. The card, which will be produced 
In Germany and may be available soon, 
was said by the photographer (a 
subscriber who was travelling in 
Europe) to be working properly. The 
card plugs Into the I/O port on the 
right side of the console. For color 
displays, the card will require an RGB 
monitor (about twice as expensive as a 
regular color monitor, but the 
difference in quality between RGB and 

color is quite significant). 
and availability of the 

card and other products from 
the U.S. distributor Is 

Ltd. . 1439 Solano Place, 

91764, U.S.A. 



composite 
For price 
80-column 
Germany, 
T. A.P.E. , 
Ontario. CA 



Version 3.3 of DM-1000, the 
popular disk manager Fairware program 
from the Ottawa User Group, is 
scheduled for release very soon. Among 
the updates for the release will be a 
l6-sector DS/DD option and support of 
up to 8 disk drives (an optimistic 
approach that goes beyond current 
hardware capabilities). The program Is 
available from the Ottawa TI-99/4A 
U.G., Box 2144 Station D, Ottawa. 
Canada KIP 5W3. 

P-Term, a widely-used terminal 
emulator program now at version 2.5, 
has been converted to the Fairware 
marketing concept. The program is now 
available on GEnie^M. 

Fast-Term users should note that 
the program was written for XMODEM D/F 
128 file transfers to be compatible for 
use by other computers and therefore 
does not send a TI file header on such 
files. Barry Traver has discovered 
that protecting a file prior to uploads 
will trigger sending the TI file 
header. The program Is currently at 
version 1.16. Later versions are 
scheduled to have a simplified option 
for sending TI file headers, as well as 
several other new features. Version 
1. 16 also has occasional problems with 
lengthy files (longer than >40 sectors), 
but a fix is now available on GEnieTH. 
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Enhancements for XB and E/A! 



Danny Michael's new enhancements 
package for Gram Kracker^" is now 
available from Millers Graphics! Danny, 
famous for his SCREEN DUMP and NEATLIST 
programs, has added many very impressive 
new features for TI Extended BASIC and 
Editor/Assembler (TI modules not included). 

For Extended BASIC, here are some 
of the new features: 

LIST will list with a designated output 

line length. 
RES will resequence all or a part of a 

program. 
TRACE can be output to a selected 

device and can be toggled on and off 

from within a program. 
CALL QUITON will enable use of the QUIT 

key. 
CALL QUITOFF will disable use of the 

QUIT key. 
Screen and character colors have been 

modified. 
Error messages will appear in upper and 

lower case. 
Auto-load of file DSKl.LOAD can be 

by-passed with the press of any key. 
New cursor control for program editing. 

INPUT'S and ACCEPT's allows quick 

entries and editing. 
COPY will copy blocks of one or more 

program lines, retaining the source 

lines. 
DELETE will delete blocks of program 

lines. 
MOVE will move blocks of program lines, 

deleting the source lines. 
CALL EA will move directly to the 

Editor/Assembler. 
CALL PEEKG will allow peeking GRAM or 

GROM addresses. 
CALL POKEG will allow poking GRAM 

addresses. 
CALL PEEKV will allow peeking VDP 

memory. 
CALL POKEV will allow poking VDP 

memory. 
All of the XBCALLS from the MILK disk 

will still be available (NEW, BYE, 

CLSALL. CLOCK, CLKOFF. CAT). 

A new character set is placed in GRAM 0. 

For the Editor/Assembler, here are 
some of the enhancements: 

Repeating keys. 



Erase key. 

Clear line to the right with <FCTN 4>. 

The last filename accessed will always 
be retained (even after powering 
off). 

Item 6 on the main E/A menu will be 
Extended BASIC, allowing moving 
directly to Extended BASIC. 

Item 7 on the main E/A menu will be 
Format Ramdisk, which will format a 
MYARC Ramdisk with the equivalent of 

CALL PART and CALL EMDK. 

Item 8 on the main E/A menu will be 
Catalog Disk. 

Installing the Editor/Assembler 
and Extended BASIC simultaneously Is 
optional. 

The package will come complete 
with 22 pages of documentation, 
including details of the memory 
locations of the enhancements. Best of 
all. the price Is a mere $10 plus $1.50 
shipping and handling, available now 
from Millers Graphics. 



^ 



New PROM For CorComp Controller 

Millers Graphics will soon be 
releasing a ne\y PROM for the CorComp 
Disk Controller Card. Here are the new 
features: 

Gets rid of the CorComp title screen! 

The CorComp Disk Manager can be 
accessed from BASIC or by holding 
down the space bar on power-up. 

Several new CALL'S will be available 
from BASIC or Extended BASIC, from a 
running program or from immediate 
mode, or from a Gram Kracker^" 
MSAVE'd BASIC program! Toolshed 
statements will also be available 
from MSAVE'd BASIC programs for the 
first time! 

CALL LLR is a Link, Load and Run option 
that links to a Start name. 

CALL ILR is an Initialize, Load and Run. 

CALL LR is a Load and Run. 

CALL RUN will run a Program Image file. 

The four above-named CALL'S are, of 
course, for linking to Assembly 
programs. The first three provide 
compatibility with the MYARC disk 
controller's routines of the same 
names. 



"^ 
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new feature will be available from 
virtually any environment (BASIC, 
Extended BASIC, M u 1 1 i p 1 a n ^ m ^ 

Editor/Assembler. Tl-Wrlter, etc.). 
An asterisk (') will denote a 
wildcard drive reference! Once a 
drive has been referenced once, the 
" • " will maintain that drive 
reference! Prior to referencing a 
drive, the default will be drive 1. 

A price has not yet been set for 
the new PROM. Millers Graphics will be 
mailing brochures on their new products 
once a price has been set. If you are 
not on the MG mailing list, the address 
is Millers Graphics, 1475 W. Cypress 
Ave., San Dlmas, CA 91773, 

Just think what you'll be able to 
do from Extended BASIC with MG's new 
Gram K r a c k e r ^ ** Extended BASIC 
enhancements, MG's new CorComp 
Controller PROM, Genial Traveler's XXB 
and our XB MIRROR all functioning at 
one time! Wow! 



DM AID 



by Richard M. Mitchell 

Displaying graphics has been very 
popular among 99'ers recently, with 
many users turning to programs such as 
Display Master ($14.95 plus $1.60 
U.S.A. shipping from Inscebot, P.O. Box 
260. Arnold, MD 21012, U.S.A.). 

Display Master uses command files to 
pass instructions such as LOADPIC, 
PAUSE. DELAY, LOOP, etc. to the 
program. Pictures must be in TI- Artist 
format, so the pictures can be created 
directly through Inscebot's TI-Artist 
program or converted to TI-Artist 
format by MAX/RLE (see July '86 issue). 

I was rather content In creating 
the Display Master command flies 
through the E/A Editor until friends 
began sending several disks of Artist 
pictures at a time. Though I was very 
appreciative of the generosity of the 
senders, I soon wondered whether I 
would ever find time to view several 
DS/DD disks of pictures every week I 
There had to be a way to view the 
pictures automatically. My solution 



was to write a simple but useful 
program to create a Display Master 
command file. So, the Extended BASIC 
program listed below, which I call DM 
AID. will allow you to name your 
command file, checking to see that the 
filename selected is not already on the 
disk, and then create a command file to 
Include all TI-Artist picture files on 
the disk (Artist picture filenames end 
with "„?"). Note that the command file 
should be written to the same disk 
drive as the drive you wish to read 
from via Display Master, as that Is the 
drive the LOADPIC commands will 
reference. 



> 100 DISPLAY AT{1,1)ERASB ALL 
:"DM AID": "THE SMART PROGRAM 
MER" 

> 110 OPTION BASE 1 

> 120 DIM N$(127) 

> 130 DISPLAY AT(10,1) :"NAME F 
OR DISPLAY MASTER COMMAN 
D FILE:":"DSK1.CFILE" 

> 140 ACCEPT AT(12,1)BEEP VALI 
DATE (UALPHA , DIGIT ,".*") SIZE ( 
-15) :F$ :: DISPLAY AT(5,1) : " 

It « It u 

* 

> 150 OPEN «1:SEG$(F$,1,5) ,INP 
UT , RELATIVE , INTERNAL 

> 160 1=1 

> 170 INPUT #1:A$,U,U,U 

> 180 INPUT #1:N$(I) ,U,U,U 

> 190 IF N$(I)»SEG$(F$,6.10)TH 
EN DISPLAY AT(5,1) :"DUPLICAT 
E FILENAME , " : "TRY AGAIN" : : 
CLOSE #1 : : GOTO 130 

> 200 IF N$(I)<>"" THEN I-I+l 
: : IF K128 THEN 180 

> 210 CLOSE #1 

> 220 OPEN #2 :F$, DISPLAY ,VARI 
ABLE 80, OUTPUT 

> 230 FOR J=l TO I 

> 240 IF POS(N$(J) ,"_P",2)<>0 
THEN PRINT #2: ".LOADPIC "&CH 
RS ( 34 ) &SEGS (F$ , 1 , 5) &SEG$ (N$ ( 
J) ,1,LEN(N$(J))-2)&CHR$(34)& 

";":". DELAY 5;" 

> 250 NEXT J 

> 260 CLOSE #2 : : END 

Display Master will generate a 
misleading error if a LOADPIC command 
falls, referencing the following 
command line, so carefully key line 240 
of DM AID to avoid confusion. 
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